home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Tele / T / TRW Reports.cpt / TRW Cons. Reports < prev   
Text File  |  1988-12-10  |  2KB  |  172 lines
  1. :LABEL1
  2. COMM 1200-N-8-1-FULL
  3. CLEAR
  4. RESET
  5. COPYINTO X$,TRW Consumer Report Entry
  6. COPYINTO Y$,Please enter the individuals
  7. COPYINTO Z$,Last Name:
  8. QUERY1,A$
  9. COPYINTO X$,TRW Consumer Report Entry
  10. ERASE Y$
  11. COPYINTO Z$,First Name:
  12. QUERY1,B$
  13. COPYINTO X$,TRW Consumer Report Entry
  14. ERASE Y$
  15. COPYINTO Z$,Middle Initial or (.)
  16. QUERY1,C$
  17. COPYINTO X$,TRW Consumer Report Entry
  18. ERASE Y$
  19. COPYINTO Z$,First Three Numbers of Street Address
  20. QUERY1,D$
  21. COPYINTO X$,TRW Consumer Report Entry
  22. ERASE Y$
  23. COPYINTO Z$,First Letter of Street Name
  24. QUERY1,E$
  25. COPYINTO X$,TRW Consumer Report Entry
  26. COPYINTO Y$,Please enter the individuals
  27. COPYINTO Z$,Zip Code
  28. QUERY1,G$
  29. COPYINTO X$,TRW Consumer Report Entry
  30. ERASE Y$
  31. COPYINTO Z$,Social Security Number (with no dashes)
  32. QUERY1,H$
  33. CONVUP A$
  34. CONVUP B$
  35. CONVUP C$
  36. CONVUP D$
  37. CONVUP E$
  38. CONVUP F$
  39. CONVUP G$
  40. CONVUP H$
  41. CLEAR
  42. TYPE ^M
  43. TYPE ^M
  44. TYPE ^M
  45. TYPE Last Name:  
  46. TYPE A$
  47. TYPE ^M
  48. TYPE First Name:  
  49. TYPE B$
  50. TYPE ^M
  51. TYPE Middle Initial of (.)  
  52. TYPE C$
  53. TYPE ^M
  54. TYPE First Three Digits of Street Address: 
  55. TYPE D$
  56. TYPE ^M
  57. TYPE First Letter of Street Name:  
  58. TYPE E$
  59. TYPE ^M
  60. TYPE Zip Code:   
  61. TYPE G$
  62. TYPE ^M
  63. TYPE Social Sec. Number:   
  64. TYPE H$
  65. PAUSE 360
  66. COPYINTO X$, Does this look correct ?
  67. COPYINTO Y$, YES= Continue   NO=Change
  68. ERASE Z$
  69. QUERY3,A$
  70. IF NO JUMPTO LABEL1
  71. CLEAR
  72. TTY
  73. DISPLAY 80
  74. MODEM
  75. QUIET
  76. ALT OFF
  77. DELKEY OFF
  78. CRC ON
  79. TTY
  80. ECHO OFF
  81. MBAR
  82. STRIP OFF
  83. XKSTRIP OFF
  84. DISPLAY 80
  85. RESET
  86. SETCOST 833
  87. REDIAL LIMIT 50
  88. LF OFF
  89. SLOW OFF
  90. CONTROL1 S
  91. CONTROL2 Q
  92. CONTROL3 C
  93. COMM 1200-E-7-1-HALF
  94. TYPE AT^M
  95. PAUSE
  96. TYPE AT^M
  97. PAUSE
  98. TYPE ATL2^M
  99. PAUSE
  100. PAUSE 260
  101. REDIAL ATDT 555-1234
  102. RESET
  103. PAUSE
  104. PROMPT xxx|
  105. PAUSE
  106. TYPE A
  107. TYPE ^M
  108. PAUSE 360
  109. RECA A$
  110. TYPE TBC2
  111. TYPE ^M
  112. TYPE RTS 12345678AB
  113. TYPE  
  114. TYPE A$
  115. TYPE  
  116. TYPE B$
  117. TYPE  
  118. TYPE C$
  119. TYPE ..,
  120. TYPE D$
  121. TYPE  
  122. TYPE E$
  123. TYPE  
  124. TYPE G$
  125. TYPE ,
  126. TYPE ^M
  127. TYPE S-
  128. TYPE H$
  129. TYPE ,T-10......,H-Y,
  130. TYPE ^M
  131. DELETE B$
  132. DELETE C$
  133. DELETE D$
  134. DELETE E$
  135. DELETE F$
  136. DELETE G$
  137. DELETE H$
  138. PROMPT -END
  139. PAUSE
  140. CLOSE
  141. PAUSE 260
  142. TYPE +++
  143. PROMPT OK
  144. PAUSE 260
  145. TYPE ATH^M^M
  146. COPYINTO X$,     Do you want to
  147. COPYINTO Y$,PRINT CAPTURED FILE ?
  148. ERASE Z$
  149. QUERY3,A$
  150. IF YES WRITE A$
  151. COPYINTO X$, DO YOU WANT TO QUIT ?
  152. COPYINTO Y$,YES = QUIT     NO = RUN ANOTHER
  153. COPYINTO Z$, TRW Consumer Credit Report
  154. QUERY3,A$
  155. IF NO JUMPTO LABEL1
  156. DELETE X$
  157. DELETE Y$
  158. DELETE Z$
  159. IF YES END
  160. END 
  161. END
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.